home *** CD-ROM | disk | FTP | other *** search
/ BMUG PD-ROM B4 / PD-ROM B4.iso / Entertainment / Strategy / Genesis / Niallot < prev    next >
Text File  |  1990-09-07  |  1KB  |  72 lines
  1. nop 798  "our code"
  2. jmp 2     for chloros
  3. nop 9      circle cell data
  4. mov #23,-2  killer start
  5. mov *3,19  save start dir
  6. mov #9,*3
  7. djz 4,*3
  8. weg #300
  9. new *3,#2
  10. jmp -3           10th
  11. add #1,*3 chloro loop st
  12. cmp #9,*3
  13. mov #1,*3
  14. new *3,#2
  15. meg #2,#2
  16. meg #4,#3
  17. meg #6,#2
  18. meg #8,#3
  19. geg 4
  20. cmg #400,3  20th
  21. meg 3,#100
  22. jmp -11
  23. nop 0
  24. nop 0
  25. mov *3,-1  attack start
  26. mov #2,*2
  27. geg 5  excess energy?
  28. cmg #400,4
  29. meg -5,#100  yes
  30. new -6,#1       30th
  31. mov #1,2
  32. nop 0 holds cell type 32
  33. nop 1 holds new dir   33
  34. gcf *33,*32
  35. cmp #-100,*32 no cell
  36. jmp 12
  37. cmp #798,*32 friend
  38. jmp 5
  39. cmp *32,#797 trub  39th
  40. jmp *53
  41. kil *33 found forn cell
  42. eat *33
  43. gcl *33,*52  dead cell?
  44. cmp #0,*52
  45. eat *33    yes
  46. cmp #3,*52
  47. mov #797,*1
  48. add #1,*33
  49. cmp #9,*33
  50. jmp *27      full loop
  51. jmp *34 kill foreign loop
  52. nop 0       52th
  53. kil *33
  54. eat *33
  55. mov #57,*2
  56. new *33,#4
  57. mov #2,*2
  58. jmp -9
  59. mov #9,*3   59th
  60. djz -1,*3      acid loop
  61. add #1,*72
  62. cmp #20,*72
  63. mov #0,*1
  64. gcl *3,*52
  65. cmp *52,#3
  66. jmp 2
  67. jmp *60
  68. acd *3
  69. eat *3
  70. ppl *3
  71. jmp *60
  72. nop 0           72thh